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54) METHOD AND DEVICE FOR SUPPORTING PROGRAM CONVERSION 

57)Abstract: 

D ROBLEM TO BE SOLVED: To prevent the explosive increase of the size of a program 
ifter conversion and to improve the performance of the program after the conversion 
>y providing a means for individually specifying a part for performing program 
conversion. 

SOLUTION: From a variable provided with a known value in the program and the variable 
capable of calculating a value other than that, the part of the program capable of being 
calculated beforehand is extracted by a conversion part extraction means 22. In the 
case that the request of the program conversion is obtained by using an input device 
;uch as a mouse or the like, only the part influenced by the specified contents is 
;imilarly extracted by the conversion part extraction means 22 and displayed. In the 
case that the request for not performing the program conversion even in the extracted 
mited influence part is present, a conversion unnecessary part is cancelled by a 
conversion part change means 23. Further, in the case that the request for continuously 
>erforming the program conversion is not present, the execution performance of the 
irogram before and after the program conversion is measured and compared by a 
compilation means 24 and an execution/performance measurement means 25. 
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double a [512] ; 

void subpgm(m, b, i, y) 
int in, b t x; 
double y; 
{ 

int j; 

ior(j=l; j<=m; { 

a[b+j] = y * cos(j+xD ; 

} 

> 

void pgm(x, y) 
int x; 
double y; 
I 

int b - 0; 
int i, m; 

for(i=0; i<=3; i++) { 

m = (int)pow(x, pow(x, i)); 
subpgm(m f b, x, y) ; 
b = b + m; 

} 

> 
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doable a [5 12] ; 

void subpgm(m, b, x, y) 
int m, b, x; 
double y; 
< 

int j; 

for(j=l; j<=m; j++) { 

a[b+j] = y * cos(j+x); 

> 

} 

void pgmGx, y) 
int x; 
double y; 
{ 

int b = 0; 
int i, m; 

for(if=0; i<=3 ; { 

m = (int) pow (x, pow(x, i)); 
subpgm(m, b, Xj y) ; 
b - b + m; 

} 

} 
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05 

double a [512] ; 

void subpgra(raj b, y) 
int m_, b; 
double y; 
{ 

int j ; 

for(j = i; j<=nL; { 

a[b+j] = y * cos(j+2); 

} 

} 

void pgm(y) 
double y; 
{ 

int b = 0; 
int _m; 

JIL= 2; 

aubpgm^m, b, y); 
b - b + 2; 
m = 4; 

subpgra(m, b, y) ; 
b « b + 4; 
m_ - 16; 

subpgra(m^ b, y); 
b = b + 16; 
m.= 256; 

subpgm(m_, b, y) ; 
b = b + 256; 
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void t>crm(v} 


void subpgm_2(b, y) 


double y; 


int b; 


{ 


Hon HI a v * 


int b = 0; 


f 


subDHiti 2Cb. v) : 


int Jj 


b = b + 2; 


for(j-l; j<-2; { 


subpgm_4(b, y) ; 


aCb+i] ■ v * coB(i+2); 


b = b + 4; 


I 


subDcna 16*(b v) • 


X 
X 


b - b * 16; 




suboem 256 Cb . v) : 




b = b + 256* 


int b; 


> 


Qouoie j , 




T 
X 




int J.; 




£or(j=l; j<-4j { 








— 




J 




• i <l anKn ii fit ft I \\ xrt 
VOlU BUDpEI0„lO\U , jj 




int h • 




CLOU OX Q J | 




/ 
\ 




int j^; 




for(j-l; 2<«16; < 




a[b+j] * y * cos(j+2); 




> 




> 




void 8ubpgm_256(b, y) 




int b; 




double y; 




i 




int j ; 




for<j=l; j<*2S6; { 




a[b+j] - y * cos(j+2); 




) 




} 
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double a[612] ; 






void subpgm_256(b, y) 


void cubpgi8 - 2(b J y) 


int b; 


int b; 


double y; 


double y; 


{ 


i 


int j; 


a[b+l] = y * coe(3) ; 


for(j=l; j<=256; j++) { 


a[b*23 » y * coa(4) ; 


a[b+j] - y * cos(j+2); 


} 


} 




} 


void 8ubpgm_4(b, y) 




int b; 


void pgn(y) 


double y; 


double y; 


{ 


{ 


a[b*l] - y * coa (3) j 


int b = 0 ; 


a[b42] =» y * cos(4) ; 




a[b+3] «= y * cos(5) ; 


subpgnt_2(b, y) ; 


a[bH] - y * coa (6) j 


b = b 4 2; 


> 


subpg».4(b, y) ; 




b - b 4 4; 


void subpgm_16(b, y) 


oubpgn_16(b, y) ; 


int b; 


b * b 4 16; 


double y; 


subpgn_256(b, y) ; 


{ 


b - b 4 256; 


a[b+l] - y * coa<3) ; 


> 


a[b*2] * y * cos (4) ; 




a[b>3] = y * C£a<5) ; 




a[b*4] - y * cos (6) ; 




a[b*5] " y * eos(7) ; 




a[b+6] - y ♦ cos(8) ; 




atb*7] - y + cos(9) ; 




a[b+8] = y * cos (10) ; 




a[b*9] = y ♦ cos(li) ; 




atb+10] - y ♦ coa(12) 






a[b4ll] =* y * cos(13) 






aCb+12] =» y * cos (14) 






a[b*13] « y * coa (IS) 






a[b*14] « y * cos (16) 






aCb+153 * y * cos(17) 






a[b+16] = y ♦ cos(lS) 






> 
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double »r512] : 






void subpgn_256(b, y) 


void subpg«_2 (b , y) 


int b; 


in"t b j 


double y; 


double y; 


{. 


r 


int j ; 


a [b+l3 = y * -9.899925e-01; 


for(j=l; j<=256; j*+) < 


aCb+2] =» y * -6 . 536436e-0i ; 


a[b+j] - y * cos(j*2); 


> 


} 




} 


void subpgn_4<b J y) 




in* b; 


void pgra(y) 


double y; 


double y; 


{ 


{ 


a[b+l] « y * -9.899925e-01; 


int b » 0; 


a[b+2] = y * -6.536436e-01; 




a[b+3] » y * 2 .836622e-01 ; 


0ubpgm_2(b, y); 


a[b+4] - y * 9. 601703O-01; 


b « b + 2; 


} 


subpgm_4(b, y) ; 




b =* b + 4; 


void flubpgm_16(b, y) 


aubpgm_16(b, y) ; 


int b; 


b » b + 16; 


double y; 


subpg«_256(b, y); 


{ 


b - b + 256; 


aCb+lJ ■ y * -9.899925e-01; 


} 


aCb+2j ** y * -6.536436e~01; 




a[b+3] « y * 2.836622e-01; 




A l_ D^*» J y T 7. DUifvOS Ul , 




aCb+5] » y + 7 . 539023o-01 ; 




a[b*6] - y * - 1. 466000e-01 ; 




a[b473 « y * -9 . 1 1 1303e-0 1 ; 




aO+8] - y * -8.390715«-01; 




a[b49] a y * 4.426698Q-03; 




a[b+10j « y * 8.438540e-01; 




a[b*ll] = y * 9.074468e-01; 




a[b+12] » y * t .367372e-01 ; 




a[b+13] = y * -7 . 596879e-01 ; 




a[b4l4] » y ♦ -9.57659Se-01 ; 




a[b+15] - y + -2 .75 1633e-01 ; 




a[b+16] 25 y * 6.603167e-01; 
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